home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / Resource / Picture => Clipping < prev    next >
Encoding:
Text File  |  1999-03-04  |  390 b   |  16 lines  |  [TEXT/ToyS]

  1. on open fsObjs
  2.     -- Get our icon
  3.     repeat with fsObj in fsObjs
  4.         set spic to the image from fsObj
  5.         set fsNew to ((fsObj as text) & "®") as file specification
  6.         
  7.         save clipping spic in fsNew
  8.         set spic to "" -- Dump RAM
  9.         
  10.         set fInfo to basic info for fsObj
  11.         set oldName to catalog name of fInfo
  12.         collate fsObj with the trasher
  13.         collate fsNew renaming it to oldName
  14.     end repeat
  15. end open
  16.